home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / gemfsc18.lzh / AESSRC18.LZH / AESXBIND.S / FRMXCENT.S < prev    next >
Encoding:
Text File  |  1992-03-07  |  731 b   |  29 lines
  1. ;*************************************************************************
  2. ;* FRMXCENT.S - Extended form_center() binding.
  3. ;*************************************************************************
  4.  
  5.           .include  "aesfast.sh"
  6.           
  7. _frmx_center::
  8.           .cargs    #8,.ptree.l,.prect.l
  9.  
  10.           link      a6,#-10
  11.           AControl  54,0,5,1
  12.  
  13.           moveq.l    #-10,d2   
  14.           lea       .ptree(a6),a0
  15.           ACall     RET2HERE
  16.  
  17.           move.l    .prect(a6),a1
  18. return4:
  19.           lea       -10(a6),a0
  20.           move.w    (a0)+,d0
  21.           move.l    (a0)+,(a1)+
  22.           move.l    (a0),(a1)
  23.           tst.w     d0
  24.           unlk      a6
  25.           rts
  26.  
  27. ;         end of code
  28.  
  29.